# data[].attributes.headline
เข้าไลน์กลุ่มได้จาก 

# data[].attributes.body
เข้าไลน์กลุ่มได้จาก qr code นี้ได้เลยครับ

# data[].attributes.body
a<-(1190+859+250)
b<-(1190+859+250)
c<-(1190+1299+350)
d<-(1190+1299)
e<-a+b+c+d

cat("Total fare  =",e)
cat("Uncle cost =",c+d)
cat("Pan cost =", a-1190)

# data[].attributes.body
sum(1190*4)->go
sum(859*2)->panmomb
sum(1299*2)->unauntb
sum(250*2)->meals
sum(350)->luggage
cat("total cost=",go+panmomb+unauntb+meals+luggage)
sum((go/2)+unauntb+luggage)->unclepaid
cat("uncle paid=",unclepaid)
cat("pan paid=",sum(859+250))

# data[].attributes.body
a<-1190
b<-859
bb<-1299
cat("Total fare is =", (4*a)+(2*b)+(2*bb)+350+500)
cat("Total fare for uncle and aunt =", (2*a)+350+(2*bb)+500)
cat("Total fare for Parn =", b +250)

# data[].attributes.body
a<-1190
b<-859
bb<-1299
(4*a)+(2*b)+(2*bb)+350+500
9926
(2*a)+350+(2*bb)+500

a+b+250
cat("Total fare is =", (4*a)+(2*b)+(2*bb)+350+500)
cat("Total fare for uncle and aunt =", (2*a)+350+(2*bb)+500)
cat("Total fare for Parn =", b +250)

# data[].attributes.body
cost=((4*1190)+(350)+(2*859)+(2*1299)+(2*250))
cat("total cost=", cost)
uncle=(2*1190)+350+(2*1299)
cat("uncle=",uncle)
pan=859+250
cat("pan=",pan)

# data[].attributes.body
a= (1190 * 4)+ 350 + (859 * 2) + (250 * 2) + (1299*2)
a
cat ("total fare is = ",a)

b= (1190*2)+ (129 * 2)+ 350
b
cat ("uncle pay = ",b)

c= (859) + (250)
c
cat ("Phan pay = ",c))