Thanks for your comments.
I wish you good study and success in life.
APPENDIX 2
TABLE NO. 2 (H)
Circle the appropriate box.
8= Completely true 7= Mostly true 6= Sometimes true
5= Only slightly correct
4= Only slightly incorrect 3= Sometimes incorrect
2= Mostly not true 1= Completely not true
STT
I can think of many ways to escape from difficult situations | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | |
1 | I am very determined to pursue my goals. mine | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
2 | I almost always feel feel tired | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
3 | I think any field multifaceted | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
4 | I get angry easily in conversations. debate | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
5 | I can find many ways to achieve important things. for myself | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
6 | I am worried about my health. | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
7 | Even when not encouraged/supported by others I'm still looking for a solution | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
8 | Past experiences prepare us well for the future. mine | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
9 | I have had some success. in life | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
10 | I often feel anxious about something | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
11 | I achieved the goal that I set for myself. I set for myself | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
Maybe you are interested!
-
Some psychological disorders of students at Ho Chi Minh City University of Medicine and Pharmacy - 2 -
Ho Chi Minh 1995: Complete Works. - National Political Publishing House, Hanoi, Volume 3. 10. Nguyen Thi Anh Thu, Psychological and Social Characteristics of Semi-Immigrants -
Psychological atmosphere of some sports teams in Ho Chi Minh City - 2 -
Interview Results on the Distribution of Appropriate Activities for Students of Age (6-7) at Some Inner City Primary Schools, Ho Chi Minh City -
Experimental Procedures of Educational Measures for Students with Disorders

APPENDIX 3
TABLE 3 (HSTC)
D1
When you promise to do something, do you always keep your promise? no? (regardless of whether the promise is favorable to you or not) | 1. have 0. no | | |
D2 | All your habits are good and in line with your wishes. your want | 1. have 0. no | |
D3 | If you were not checked, would you buy a train or bus ticket? | 1. have 0. no | |
D4 | Do you get angry sometimes? | 1. have 0. no | |
D5 | You often have thoughts that you would rather not let go of. others know right | 1. have 0. no | |
D6 | You sometimes make up stories, don't you? | 1. have 0. no | |
D7 | Have you ever been late for an appointment, or to school, or to work? Are not ? | 1. have 0. no | |
D8 | Among the people you know, there are people you don't like. like openly right? | 1. have 0. no | |
D9 | Do you often talk about things you don't fully understand? right? | 1. have 0. no | |
D10 | Last month I spent the following amount of money : ……… ………million VND | ||
APPENDIX 4
TABLE 1
Rating level :
0 Not true for me at all
1 Somewhat true for me, or sometimes true
2 True for me mostly, or most of the time
3 Absolutely true for me, or most of the time
1.
I find myself getting confused over trivial matters. | 0 1 2 3 | |
2. | I have dry mouth | 0 1 2 3 |
3. | I don't seem to have any positive emotions. | 0 1 2 3 |
4. | I have a breathing disorder (shortness of breath, difficulty breathing even without doing anything heavy) | 0 1 2 3 |
5. | I can't seem to work like before. | 0 1 2 3 |
6. | I tend to overreact to every situation. | 0 1 2 3 |
7. | I have a feeling of shaking (hands, feet...) | 0 1 2 3 |
8. | I find it difficult to relax. | 0 1 2 3 |
9. | I got into something that made me very anxious and I only calmed down when the thing was over. pass away | 0 1 2 3 |
10. | I see that I have nothing to look forward to. | 0 1 2 3 |
11. | I get confused quite easily. | 0 1 2 3 |
12. | I find myself thinking too much. | 0 1 2 3 |
13. | I feel bored and stagnant | 0 1 2 3 |
14. | I find myself impatient when I have to wait. | 0 1 2 3 |
15. | I found myself almost fainting. | 0 1 2 3 |
16. | I lost interest in everything. | 0 1 2 3 |
17. | I feel like I'm not worthy of being human. | 0 1 2 3 |
18. | I am quite easily offended and sensitive. | 0 1 2 3 |
19. | I sweat even though it's not because of hard work or hot weather. | 0 1 2 3 |
20. | I am often afraid for no reason. | 0 1 2 3 |
21. | I find life worthless. | 0 1 2 3 |
22. | I find it difficult to relax. | 0 1 2 3 |
23. | I find it hard to swallow. | 0 1 2 3 |
24. | I don't seem to have any positive emotions. | 0 1 2 3 |
25. | I have a breathing disorder (shortness of breath, difficulty breathing even without doing anything heavy) | 0 1 2 3 |
26. | I feel depressed and disappointed. | 0 1 2 3 |
27. | I am irritable and frustrated. | 0 1 2 3 |
28. | I found myself almost panicking. | 0 1 2 3 |
29. | After being confused, I found it difficult to calm down. | 0 1 2 3 |
I'm afraid of doing things that are normal but I've never done before. do | 0 1 2 3 | |
31. | I don't feel excited about anything anymore. | 0 1 2 3 |
32. | I find it difficult to accept interruptions in what I am doing. | 0 1 2 3 |
33. | I live in a state of stress. | 0 1 2 3 |
34. | I feel pretty useless. | 0 1 2 3 |
35. | I can't stand having something interfere with what I'm doing. | 0 1 2 3 |
36. | I feel terrified | 0 1 2 3 |
37. | I see no hope for the future. | 0 1 2 3 |
38. | I find life meaningless | 0 1 2 3 |
39. | I am easily agitated. | 0 1 2 3 |
40. | I worry about situations that might scare me or turn me into a laughingstock | 0 1 2 3 |
41. | I am shaking | 0 1 2 3 |
42. | I find it difficult to get started on work. | 0 1 2 3 |
30.
Libraries used
STATISTICS COMMANDS
IN R SOFTWARE
library(Hmisc) # require (psych) library(epicalc)
library (car)
require(psych) # Alpha Cronbach
Original data
setwd ("d:/master")
dhyd <- stata.get("d:/thac si/luanvan2.dta") attach (dhyd)
# Plot a graph in a frame
op <- par(mfrow = c(1, 1),pty ="s") # 2 x 2 pictures on one plot tamly <- data.frame(hivong, S, D, A ) # nominal variables phantich <- ICLUST(tamly)
print(phantich,digits=2)
# Predictor variables – quantitative variables biensomoi <- predictr(D$dhyd, S$dhyd) predictr (biensomoi)
# Calculate the trend chi square
nptrendr (D$dhyd, khoa$dhyd)
# Calculate the rate of anxiety disorders according to the background variable
bang <- summary( A=="dang" ~ faculty + namthu, data=dhyd, fun=mean) # nang is not a label it is a state condition <- summary(A=="rat nang" ~ faculty + namthu , data=dhyd, fun=mean)
#phantram <- function(x) {mean(x)*100}#
bang <- summary(A=="dang" ~ faculty + namthu, data=pnmt, fun=phantram) print(bang, prmsd=T, pctdig=1, exclude1=F)
bang7a <- summary(A=="nhe" ~ khoa + namthu, data=dhyd, fun=sum)
# Interaction effects between variables
anova (model3 <- lm (hivong ~ D+A+S + D*A*S)) # has hist effect (model13)
########
model4 <- aov (hivong ~ stress + anxiety + depression ) TukeyHSD (model4)
plot(TukeyHSD (model4), ordered=TRUE) interaction.plot(model14)
#PR Regression Analysis
hqd = glm( D ~ factor(c1hutthu) + factor(a3khoa) + factor(a4lop)+ factor(c17tutin) + (a12choo)
+ factor(a11phuon) + factor(b10inter)+ factor(c4ruou) + factor(c11kehoa)+ factor(c12tinhd)+ factor(c13songt)
+ factor(c14lyhon), family=poisson) # PR summary(hqd) # UOC SO PR exp(coef(hqd)) # PR
exp(confint(hqd)) # 95% CI PR
## Depression
hqd1 = glm(D~ factor(hutthuoc), family=poisson) # PR summary(hqd1) # UOC SO PR
exp(coef(hqd1)) # PR exp(confint(hqd1)) # 95% CI PR
# Anxiety
hqd1 = glm(A ~ factor(hutthuoc), family=poisson) # PR summary(hqd1) # UOC SO PR
exp(coef(hqd1)) # PR exp(confint(hqd1)) # 95% CI PR
# Stress
hqd1 = glm(S ~ factor(hutthuoc), family=poisson) # PR summary(hqd1) # UOC SO PR
exp(coef(hqd1)) # PR exp(confint(hqd1)) # 95% CI PR
# Multiple regression
hqa = glm( anxiety ~ factor(drug) + factor(science) + factor(drug) + factor(drug) + factor(drug) + (choo)
+ factor(transport) + factor(internet)+ factor(wine) + factor(plan)+ factor(sex)+ factor(couple)+factor(divorce), family=poisson) # PR
summary(hqa) # UOC SO PR exp(coef(hqa)) # PR exp(confint(hqa)) # 95% CI PR
# DRAW
options(scipen=2) # 2 numbers
hqs = glm(S ~ factor(a3science),family=poisson) summary(hqs)
exp(coef(hqs)) exp(confint(hqs)) exp(0.01688 )
plot(A, D, cex=S, pch=16, col ="red", xlab="A", ylab="D", main="image") points (A, D, cex=S)
# Non-parametric wilcox.test (A, a3khoa) kwallis(s1,a3khoa)
# Describe the data summary(aov(A ~ tinhduc)) describe.by (D , tinhduc) describe.by (A , tinhduc) describe.by (S , tinhduc)





