corentinchoisy/SPT
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added option in select_weight

Browse Source
This commit is contained in:
Corentin Choisy
2025-05-26 14:56:02 +02:00
parent 983a095097
commit 7c1fa1b9a8
1 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
R/pcm.R
View File

@ -66,7 +66,11 @@ pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights
} }
grp <- NULL grp <- NULL
# prepare data # prepare data
df <- df[,c('id',items)] if (is.null(weights)) {
df <- df[,c('id',items)]
} else {
df <- df[,c('id',items,"weights")]
}
print(df) print(df)
colnames(df)[2:(length(colnames(df)))] <- paste0("item",seq(1,length(colnames(df))-1)) colnames(df)[2:(length(colnames(df)))] <- paste0("item",seq(1,length(colnames(df))-1))
df.long <- reshape(df,v.names=c("item"),direction="long",varying=c(items)) df.long <- reshape(df,v.names=c("item"),direction="long",varying=c(items))
@ -108,7 +112,11 @@ pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights
cat("#################################################################################################\n") cat("#################################################################################################\n")
} }
# prepare data # prepare data
df <- df[,c('id',items,"grp")] if (is.null(weights)) {
df <- df[,c('id',items,"grp")]
} else {
df <- df[,c('id',items,"grp","weights")]
}
colnames(df)[2:(length(colnames(df))-1)] <- paste0("item",seq(1,length(colnames(df))-2)) 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)) df.long <- reshape(df,v.names=c("item"),direction="long",varying=c(items))
if (is.null(weights)) { if (is.null(weights)) {
@ -197,7 +205,11 @@ pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights
cat("#################################################################################################\n") cat("#################################################################################################\n")
} }
# prepare data # prepare data
df <- df[,c('id',items,"grp")] if (is.null(weights)) {
df <- df[,c('id',items,"grp")]
} else {
df <- df[,c('id',items,"grp","weights")]
}
colnames(df)[2:(length(colnames(df))-1)] <- paste0("item",seq(1,length(colnames(df))-2)) 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)) df.long <- reshape(df,v.names=c("item"),direction="long",varying=c(items))
if (is.null(weights)) { if (is.null(weights)) {