Creative Commons License

if(!requireNamespace("BiocManager", quietly = TRUE)) {
 install.packages("BiocManager")
}
BiocManager::install("msqrob2")
if(!requireNamespace("BiocManager", quietly = TRUE)) {
 install.packages("BiocManager")
}
if(!requireNamespace("remotes", quietly = TRUE)) {
 BiocManager::install("remotes")
}
BiocManager::install("statomics/msqrob2gui")
library(msqrob2)
data(pe)
pe <- aggregateFeatures(pe,i="peptide",fcol="Proteins",name="protein")
pe <- msqrob(pe,i="protein",formula=~condition,modelColumnName="rlm")
getCoef(rowData(pe[["protein"]])$rlm[[1]])