tag:blogger.com,1999:blog-17889588.post5176195193293631046..comments2024-03-13T07:14:55.283+01:00Comments on chem-bla-ics: Tricks I learned today #1: as.integer() on factor levelsEgon Willighagenhttp://www.blogger.com/profile/07470952136305035540noreply@blogger.comBlogger7125tag:blogger.com,1999:blog-17889588.post-26511969352546773342011-10-15T18:04:40.905+02:002011-10-15T18:04:40.905+02:00Paul, ah nice! How interesting to use the kohonen ...Paul, ah nice! How interesting to use the kohonen package here!<br /><br />How could I have forgotten that method! I used it 5 years ago :) Hahahaha!Egon Willighagenhttps://www.blogger.com/profile/07470952136305035540noreply@blogger.comtag:blogger.com,1999:blog-17889588.post-91574128113944786622011-10-15T16:56:23.200+02:002011-10-15T16:56:23.200+02:00one more...
a = as.factor(c("A", "...one more...<br /><br />a = as.factor(c("A", "B", "A", "C"))<br />b = as.integer(factor(a))<br />library( kohonen )<br />classvec2classmat( b )Paul J Kowalczyknoreply@blogger.comtag:blogger.com,1999:blog-17889588.post-980245956138864852011-10-13T16:52:51.804+02:002011-10-13T16:52:51.804+02:00Sal, thanx! Very useful trick too!Sal, thanx! Very useful trick too!Egon Willighagenhttps://www.blogger.com/profile/07470952136305035540noreply@blogger.comtag:blogger.com,1999:blog-17889588.post-34768880235701676142011-10-13T16:36:00.033+02:002011-10-13T16:36:00.033+02:00Back to numbers/factors..To disable automatic conv...Back to numbers/factors..To disable automatic conversion to factors at startup, add this line to your Rprofile.site or .Rprofile:<br /><br />options(stringsAsFactors = FALSE)Salhttps://www.blogger.com/profile/16032160649863313971noreply@blogger.comtag:blogger.com,1999:blog-17889588.post-44917007067951910142011-10-13T09:07:33.988+02:002011-10-13T09:07:33.988+02:00Rajarshi, Anonymous, both work lovely! Thanx!Rajarshi, Anonymous, both work lovely! Thanx!Egon Willighagenhttps://www.blogger.com/profile/07470952136305035540noreply@blogger.comtag:blogger.com,1999:blog-17889588.post-6628515103933413652011-10-13T08:52:32.640+02:002011-10-13T08:52:32.640+02:00a = as.factor(c("A", "B", &quo...a = as.factor(c("A", "B", "A", "C"))<br />m <- t(sapply(a, function(x) { as.integer(x == levels(x)) }))<br />colnames(m) <- levels(a)Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-17889588.post-2094449780385682532011-10-12T17:55:26.115+02:002011-10-12T17:55:26.115+02:00a = as.factor(c("A", "B", &quo...a = as.factor(c("A", "B", "A", "C"))<br />m <- do.call('rbind', sapply(as.numeric(a), function(x,l) {<br /> ret <- rep(FALSE, l)<br /> ret[x] <- TRUE<br /> return(ret)<br />}, l=length(levels(a)), simplify=FALSE))<br />dimnames(m)[[2]] <- levels(a)Rajarshihttps://www.blogger.com/profile/17004737222701996223noreply@blogger.com