Publications by USER
Anova
# Clear workspace rm(list = ls()) # Set working directory setwd("/media/hossein/DISK_IMG/Sungjin/Sungjin_Pig_Data_analysis/") data_new <- read.table("data_new.txt", quote="\"", comment.char="") data1 <- (data_new[,2:12]) colnames(data1) <- c("ARN","SIRE", "DAM","SSIRE","SEX","year","BD","RBATCH","MPAR","TAGE","BWT") YM ...
29 sym R (5246 sym/22 pcs) 4 img
성별과 노동시간 상호작용효과
library(moonBook) ## Warning: package 'moonBook' was built under R version 4.0.4 library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(MASS) ## ## Attach...
292 sym R (11063 sym/47 pcs) 6 img
KGSS 08, 13, 18년 다중 회귀분석
getwd() ## [1] "C:/RRR/kgss" setwd("C:/RRR/kgss") rm(list=ls()) load("C:/RRR/kgss/kgsslogistic_210304.RData") library(mice) ## ## Attaching package: 'mice' ## The following object is masked from 'package:stats': ## ## filter ## The following objects are masked from 'package:base': ## ## cbind, rbind library(moonBook) ## Warning...
1856 sym R (6417 sym/39 pcs) 9 img 3 tbl
Multiple regression
rm(list =ls()) library(readxl) # read data RD <- read_excel("/home/hossein/Downloads/organiseddata.xlsx") # summary stats summary(RD) ## Year Month Frynumber Quntityoffeed Quantityharvested ## Min. :2016 Min. : 1 Min. :10245 Min. : 5405 Min. : 5357 ## 1st Qu.:2016 1st Qu.: 9 1st Qu.:19337 1...
32 sym R (6454 sym/19 pcs) 11 img 1 tbl
08 13 18 개신교 내 년도와 종교성, 한국인자긍심, 북한태도 상호작용
1. 기본형 reg1 <- lm(SEXATT3_n ~ SEX_n + AGE_n + YEAR_n2 + MARITAL_n + party_n1 + party_n2 + PARTYLR_n + EDUC_n + RELIG_n ,data = KG5) summary(reg1) ## ## Call: ## lm(formula = SEXATT3_n ~ SEX_n + AGE_n + YEAR_n2 + MARITAL_n + ## party_n1 + party_n2 + PARTYLR_n + EDUC_n + RELIG_n, data = KG5) ##...
122 sym R (14571 sym/20 pcs) 4 img
Canonical Transformation
1. Canonical Transformation Canonical transformations involve the use of special matrices in the transformation of related traits into unrelated traits and thus using single trait models for evaluation( transformation of polymorphic model into monomorphic models). Using the transformation matrix Q and P we are able to transform the models. Limit...
13065 sym R (14627 sym/92 pcs)
Repeatability Model
# The Repeatability Model - Date : 2020-11-11 # An example of a single diary herd # Linear Models for the Prediction of Animal Breeding Values, Raphael Mrode, 3rd Edition # Julius Mugambe(PhD) # Clear works pace rm(list = ls()) # Set working directory # Setting working directory setwd("G:/R-MME") getwd() ## [1] "G:/R-MME" # install....
96 sym R (29054 sym/90 pcs)
The Sire Model
# A sire Model # Linear Models for the prediction of Animal Breeding values. # Julius Mugambe PhD # variance components sigma_s <- 5.0 sigma_e <- 55 alpha <- sigma_e/sigma_s # AINV Ainv = matrix(data = c(1.333,0.000,-0.667,0.000,1.000,0.000,-0.667,0.000,1.333), byrow= T, ncol = 3) X = matrix(data = c (1,0,0,1,0,1,1,0,1,0), byrow=T,nc...
8 sym R (997 sym/2 pcs)
Single_Trait_Animal_Model_RA_MRODE
# Single Trait Animal Model - Date : 2020-11-11 # A model for Animal Evaluation # Linear Models for the Prediction of Animal Breeding Values, Raphael Mrode, 3rd Edition # Julius Mugambe(PhD) # Clear workspace rm(list = ls()) # Set working directory # Setting working directory setwd("G:/R-MME") getwd() ## [1] "G:/R-MME" # Functions ...
10 sym R (3504 sym/4 pcs)
Partitioning Breeding Values (PA,PC and YD)
# Progeny yield Deviations - Date : 2020-11-11 # An example of the animal model # Linear Models for the Prediction of Animal Breeding Values, Raphael Mrode, 3rd Edition # Julius Mugambe(PhD) # Clear works pace rm(list = ls()) # Set working directory # Setting working directory setwd("G:/R-MME") getwd() ## [1] "G:/R-MME" # Functions ...
55 sym R (13642 sym/50 pcs)