Added option in select_weight

This commit is contained in:
2025-05-26 14:59:04 +02:00
parent 7c1fa1b9a8
commit 1a259b6b89

View File

@ -69,7 +69,7 @@ pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights
if (is.null(weights)) {
df <- df[,c('id',items)]
} else {
df <- df[,c('id',items,"weights")]
df <- df[,c('id',items,weights)]
}
print(df)
colnames(df)[2:(length(colnames(df)))] <- paste0("item",seq(1,length(colnames(df))-1))
@ -115,7 +115,7 @@ pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights
if (is.null(weights)) {
df <- df[,c('id',items,"grp")]
} else {
df <- df[,c('id',items,"grp","weights")]
df <- df[,c('id',items,"grp",weights)]
}
colnames(df)[2:(length(colnames(df))-1)] <- paste0("item",seq(1,length(colnames(df))-2))
df.long <- reshape(df,v.names=c("item"),direction="long",varying=c(items))
@ -208,7 +208,7 @@ pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights
if (is.null(weights)) {
df <- df[,c('id',items,"grp")]
} else {
df <- df[,c('id',items,"grp","weights")]
df <- df[,c('id',items,"grp",weights)]
}
colnames(df)[2:(length(colnames(df))-1)] <- paste0("item",seq(1,length(colnames(df))-2))
df.long <- reshape(df,v.names=c("item"),direction="long",varying=c(items))