Skip to content

Instantly share code, notes, and snippets.

@edipofederle
Created November 20, 2014 15:19
Show Gist options
  • Save edipofederle/5c5a8746915597a8677f to your computer and use it in GitHub Desktop.
Save edipofederle/5c5a8746915597a8677f to your computer and use it in GitHub Desktop.
> ideal <- read.table("C:/RProgram/tabulacao_IPM_ibiza.csv",header=TRUE,sep=";",dec=".",quote = "\"")
> ideal[,1] <- as.factor(ideal[,1])
> summary(ideal[,1:6])
consumidor product jasmim id_jasmim citrico id_citrico
19 : 12 bellaibiza :48 Min. : 0.00 Min. : 0.00 Min. : 0.00 Min. : 0.00
1 : 6 imsotrendy :48 1st Qu.: 5.00 1st Qu.: 5.00 1st Qu.: 6.00 1st Qu.: 6.75
2 : 6 liberte :48 Median :15.00 Median :15.00 Median :15.00 Median :15.50
3 : 6 sensualgirl:48 Mean :25.53 Mean :25.34 Mean :24.24 Mean :25.07
4 : 6 sexytouch :48 3rd Qu.:40.00 3rd Qu.:41.25 3rd Qu.:36.50 3rd Qu.:42.00
5 : 6 sosexy :48 Max. :96.00 Max. :96.00 Max. :91.00 Max. :94.00
(Other):246
> > library(SensoMineR)
Error: unexpected '>' in ">"
> library(SensoMineR)
> res.MultiId <- MultiIdeal(ideal,col.p=2,col.j=1,id.recogn="id_")
[1] "The attribute citrico is removed from the analysis."
[1] "The attribute patchoulli is removed from the analysis."
[1] "The attribute fruta_verm is removed from the analysis."
[1] "The attribute sandalo is removed from the analysis."
[1] "The attribute cedro is removed from the analysis."
[1] "The attribute iris is removed from the analysis."
[1] "The attribute cardamono is removed from the analysis."
Error in `row.names<-.data.frame`(`*tmp*`, value = value) :
invalid 'row.names' length
In addition: Warning message:
In MultiIdeal(ideal, col.p = 2, col.j = 1, id.recogn = "id_") :
The dimensions 1 and 2 will be used in this analysis!
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment