Displaying 3 results from an estimated 3 matches for "grp_lev".
Did you mean:
grp_levs
2011 Jun 30
2
volcano plot.r
...there are more than 2 groups
#
# Load the data matrix
#
# Read in the .csv file
data<-read.csv("file:///Users/nadya/Desktop/praktikal UTM/TASKS1/RT BE EMS 300-399.csv", sep=",", row.names=1, header=TRUE)
# Get groups information
groups<-data[,1]
# Get levels for groups
grp_levs<-levels(groups)
if (length(levels(groups)) > 2)
print("Number of groups is greater than 2!") else {
#
# Split the matrix by group
#
new_mats<-c()
for (ii in 1:length(grp_levs))
new_mats[ii]<-list(data[which(groups==levels(groups)[ii]),])
...
2011 Jun 20
2
(no subject)
...rically first
# Script will return an error if there are more than 2 groups
#
# Load the data matrix
#
# Read in the .csv file
data<-read.csv("input5.csv", sep=",", row.names=1, header=TRUE)
# Get groups information
groups<-data[,1]
# Get levels for groups
grp_levs<-levels(groups)
if (length(levels(groups)) > 2)
print("Number of groups is greater than 2!") else {
#
# Split the matrix by group
#
new_mats<-c()
for (ii in 1:length(grp_levs))
new_mats[ii]<-list(data[which(groups==levels(groups)[ii]),])...
2011 Jun 30
0
help with interpreting what nnet() output gives:
...there are more than 2 groups
#
# ? ?Load the data matrix
#
# Read in the .csv file
data<-read.csv("file:///Users/nadya/Desktop/praktikal UTM/TASKS1/RT BE EMS 300-399.csv", sep=",", row.names=1, header=TRUE)
# Get groups information
groups<-data[,1]
# Get levels for groups
grp_levs<-levels(groups)
if (length(levels(groups)) > 2)
? ? print("Number of groups is greater than 2!") else {
? ? #
? ? # ? ?Split the matrix by group
? ? #
? ? new_mats<-c()
? ? for (ii in 1:length(grp_levs))
? ? ? ? new_mats[ii]<-list(data[which(groups==levels(groups)[ii]),])
?...